Programming Sound Cards/Programming Sound Cards.iso/sound_77/test.prg

Text File | 1995-01-01 | 2KB | 54 lines

******************************************************************************
* Program Name: test.prg
* Author: Richard R. Schafer
* Copyright (c) 1989 by RßΣßJßΣß Systems, Moses Lake, WA 98837
*-----------------------------------------------------------------------------
*.............................................................................
* Revision: 1.0 Last Revised: 6/18/1989 at 9:50
* Description: Original Creation.
*.............................................................................
*---------------------------- ALL RIGHTS RESERVED ----------------------------

clear

column = 00
start = seconds()
for x = 1 to 50
    @ 00,column SAY soundxx("schaefer")
    @ 01,column SAY soundxx("schaffer")
    @ 02,column SAY soundxx("talor")
    @ 03,column SAY soundxx("taylor")
    @ 04,column SAY soundxx("tailor")
    @ 05,column SAY soundxx("tailer")
    @ 08,column say str(x,2,0)
next
@ 06,column say str((seconds() - start),6,3)

column = 20
start = seconds()
for x = 1 to 50
    @ 00,column SAY soundex("schaefer")
    @ 01,column SAY soundex("schaffer")
    @ 02,column SAY soundex("talor")
    @ 03,column SAY soundex("taylor")
    @ 04,column SAY soundex("tailor")
    @ 05,column SAY soundex("tailer")
    @ 08,column say str(x,2,0)
next
@ 06,column SAY str((seconds() - start),6,3)

column = 40
start = seconds()
for x = 1 to 50
    @ 00,column SAY soundx("schaefer")
    @ 01,column SAY soundx("schaffer")
    @ 02,column SAY soundx("talor")
    @ 03,column SAY soundx("taylor")
    @ 04,column SAY soundx("tailor")
    @ 05,column SAY soundx("tailer")
    @ 08,column say str(x,2,0)
next
@ 06,column SAY str((seconds() - start),6,3)

quit